home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / pasprog.EXE / TAKVIM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-09-24  |  837 b   |  42 lines
  1. Uses Takvimtp,Crt;
  2. Type
  3. TakvimObj = Object (Cal)
  4.         Procedure ExitMessage;Virtual;
  5.         Procedure HandleEvent(Key:Word);Virtual;
  6.         End;
  7. Var Takvim1 : TakvimObj ;
  8.  
  9. Procedure TakvimObj.ExitMessage;
  10. Begin
  11.         Writeln;
  12.         ClrEol;
  13.         Writeln('Deºiƒik Çìk샠Mesajì');
  14. End;
  15.  
  16. Procedure TakvimObj.HandleEvent(Key:Word);
  17.  
  18. Procedure Help;
  19. Begin
  20. ClrScr;
  21.         Writeln('ÿlkel Bir Yardìm Ekranì');
  22.         Writeln('-----------------------');
  23.         Writeln('F1->Yardìm  Oklar->Taƒìma  PgDn->Önceki Ay');
  24.         Writeln('PgUp->Sonraki Ay');
  25.         Writeln;
  26.         Writeln('ENTER Tuƒlayìnìz.!.');
  27.         Readln;
  28.         Show;
  29. End;
  30.  
  31. Begin
  32.         Inherited HandleEvent(Key);
  33.         Case Key Of
  34.         {F1} 15104:Help;
  35.         End;
  36. End;
  37.  
  38.  
  39. Begin
  40.         Takvim1.Init(1,1);
  41. End.
  42.